home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs20.d81 / colours.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  23 lines
  1. 10 POKE56,64:CLR:GOTO2020
  2. 20 V=53248:E=56576:D=56320
  3. 30 PRINT"[147][211]INCE THE NUMBER OF COMBINATIONS OF "
  4. 40 PRINT"15 THINGS TAKEN 2 AT A TIME (REPETITION"
  5. 50 PRINT"ALLOWED) IS 120, THIS ROUTINE SWITCHES"
  6. 60 PRINT"BETWEEN TWO COLORS AT THE FIELD"
  7. 70 PRINT"FREQUENCY (60 [200]Z) FOR EACH GROUP OF"
  8. 80 PRINT"EIGHT CELLS.  [212]HAT GIVES ALL OF THE"
  9. 90 PRINT"COMBINATIONS IN 24 LINES."
  10. 100 PRINT"[208][210][197][211][211] [210][197][212][213][210][206]."
  11. 110 GETA$:IFA$=CHR$(13)THEN130
  12. 120 GOTO110
  13. 130 POKEE,6:POKEV+17,59:POKEV+24,24:POKEV+18,250:POKED+14,.:POKEV+32,.
  14. 140 SYS49152
  15. 150 GETA$:IFA$=CHR$(13)THENSYS2048
  16. 160 GOTO150
  17. 2020 PRINT"[147]ONE MOMENT PLEASE"
  18. 2025 P=PEEK(45)+256*PEEK(46)-1
  19. 2030 IFPEEK(P)THENP=P-1:GOTO2030
  20. 2040 P=P-147
  21. 2050 FORI=.TO147:POKE49152+I,PEEK(P+I):NEXT
  22. 2060 POKE2063,48:GOTO20
  23.